home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00255.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  481 b   |  19 lines
  1. on mouseUp
  2.   global newday, firstdayNo, endDate, newYear, newMonth, beginDate
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   set oldBox to newday + firstdayNo - 1
  7.   if (oldBox > 0) and (oldBox < 38) then
  8.     set the ink of sprite (oldBox + 8) to 36
  9.   end if
  10.   puppetVisible(46, 47, 1)
  11.   puppetStatus(1, 47, 0)
  12.   set beginDate to getSerialDate(newMonth & "/" & newday & "/" & newYear)
  13.   set endDate to beginDate - 1
  14.   go("setupshowDays")
  15.   showDays()
  16.   go("date ok")
  17.   cursor(0)
  18. end
  19.